home *** CD-ROM | disk | FTP | other *** search
/ Stone Design / Stone Design.iso / Stone_Friends / Wave / WavesWorld / Examples / tweenTests / WW3DSquishyTest.wwScene < prev   
Encoding:
Text File  |  1995-03-25  |  438 b   |  19 lines
  1. proc drawSphere {r} {
  2.  
  3.   WW3DSquishySphere $r [expr {-1 * $r}] $r 360 1.5
  4. }
  5.  
  6. set radius .3
  7.  
  8. startShape {squishy}
  9.     animatable: {drawSphere $radius} {\
  10.             {0.000000 { {{waveToFriend} 1.000000 {WW3DSquishySphere 1 -1 1 360 1.5}} }} \
  11.             {1.000000 { {{waveToFriend} 1.000000 {WW3DSquishySphere .5 -.5 .5 360 1.5}} }} \
  12.             {2.000000 { {{waveToFriend} 1.000000 {WW3DSquishySphere 2 -2 2 360 1.5}} }} \
  13.            };
  14. endShape
  15.  
  16.  
  17.  
  18.  
  19.